1 INPUTL$::FORI=65TO90::CALL CHARPAT(I.A$)::CALL CHAR(I-1.A$)::NEXT I::CALL CHARPAT(64.B$)::CALL CHAR(90.B$)::GOTO 1
2 INPUT L$::FOR I=90 TO 65 STEP -1::CALL CHARPAT(I.A$)::CALL CHAR(I+1.A$)::NEXT I::CALL CHARPAT(91,B$)::CALL CHAR(65.B$)::GOTO 2